home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / disk / cdrom / SkandalfoCDP.lha / SCDPlayer / Rexx / A->B.scdp next >
Text File  |  1996-09-07  |  932b  |  70 lines
  1. /* Skandalfo CD Player ARexx script 
  2. ** A->B mode.
  3. */
  4.  
  5. ADR=ADDRESS()
  6. OPTIONS RESULTS
  7.  
  8. ADDRESS COMMAND setenv kk "k"
  9. ADDRESS COMMAND setenv qq "q"
  10. ADDRESS COMMAND setenv pp "p"
  11.  
  12. A=GETCLIP(ADR"_AB_A")
  13.  
  14. IF A="" THEN DO
  15.     PLAYINGPOS
  16.     A=RESULT
  17.     STATUS
  18.     IF RESULT~=PLAYING THEN RETURN
  19.     CALL SETCLIP(ADR"_AB_A",A)
  20.     RETURN
  21.     END
  22.  
  23. PLAYINGPOS
  24. B=RESULT
  25.  
  26. STATUS
  27. ST=RESULT
  28.  
  29. IF ST~=PLAYING THEN DO
  30.     CALL SETCLIP(ADR"_AB_A","")
  31.     RETURN
  32.     END
  33.     
  34. FLAG=1
  35.  
  36. PLAYRAW A B
  37.  
  38. PLAYINGPOS
  39. Ind=RESULT
  40.  
  41. USERACTION
  42.  
  43. DO WHILE FLAG
  44.     Ti=MIN(1000,MAX(0,((B-Ind)*1000)/75))
  45.     ADDRESS COMMAND Delay Ti+100
  46.  
  47.     USERACTION
  48.     UA=RESULT
  49.  
  50.     IF UA~=0 THEN DO
  51.         CALL SETCLIP(ADR"_AB_A","")
  52.         RETURN
  53.         END
  54.     
  55.     STATUS
  56.     ST=RESULT
  57.  
  58.     IF ST=NODISK THEN FLAG=0
  59.     IF ST=STOPPED THEN DO
  60.         PLAYRAW A B
  61.         Ind=A
  62.         END
  63.        ELSE DO
  64.         PLAYINGPOS
  65.         Ind=RESULT
  66.         END
  67.     END
  68.  
  69. CALL SETCLIP(ADR"_AB_A","")
  70.